S.


INTERLISP-10   4-JAN-75 ...

Hi, Doug.

(<LENAT>S.;2 . <LISP>LISP.SAV;50104)
←(DEFINEQ (MAXX (LAMBDA (L V C)(SETQ V -1)(MAPC L (FUNCTION
(LAMBDA (X) (COND ((IGREATERP (LENGTH (CWHY X)) V)(SETQ V
(LENGTH (CWHY X))(SETQ C X)))))) C]
(MAXX)
←
CANDS
u.b.a.
CANDS

←CAND-TAIL
((PRINT (QUOTE EXS) (QUOTE ANYB)) 0 ((No decent reason) (This gets
AM going)))
←(MAXX CAND-TAIL)
NIL
←
EDITF(MAXX)
edit

*P
(LAMBDA (L V C) (SETQ V -1) (MAPC L & C))
*4
*RI 3

(RI 3)  ?
*0
*RI 4 3
P
(LAMBDA (L V C) (SETQ V -1) (MAPC L &) C)
*OK
MAXX
←(MAXX CAND-TAIL)
NIL
←
EDITF(MAXX)
edit

*P
(LAMBDA (L V C) (SETQ V -1) (MAPC L &) C)
*-2 P
(MAPC L (FUNCTION &))
*-1 P
(FUNCTION (LAMBDA & &))
*-1 P
(LAMBDA (X) (COND &))
*3 P
(COND (& &))
*2 PP
  ((IGREATERP (LENGTH (CWHY X))
              V)
   (SETQ V (LENGTH (CWHY X))
     (SETQ C X)))
*E (CWHY (CAR CAND-TAIL]
(QUOTE ANYB)

*E CAND-TAIL
((PRINT (QUOTE EXS) (QUOTE ANYB)) 0 ((No decent reason) (This gets
AM going)))
*E (CAR CAND-TAIL)
(PRINT (QUOTE EXS) (QUOTE ANYB))

*1 P
(IGREATERP (LENGTH &) V)
*NX P
(SETQ V (LENGTH &) (SETQ C X))
*UP
*RI 1 2
0 P
((IGREATERP & V) (SETQ V) (LENGTH &) (SETQ C X))
*OK
MAXX
←(MAXX CAND-TAIL)

NON-NUMERIC ARG
NIL
in IGREATERP

(broken)
:V
NIL
:X
0
:(CWHY X)
#15125
:
(LENGTH (CWHY X))
0
:
BTV
IGREATERP
COND

   X 0
#41042

   MAPFN2 NIL
   MAPFN1 (LAMBDA (X) (COND &))
   MAPX (0 (& &))
MAPC

   C (PRINT (QUOTE EXS) (QUOTE ANYB))
   V NIL
   L ((PRINT & &) 0 (& &))
MAXX
**TOP**

:REDO EDITF
edit
*P
(LAMBDA (L V C) (SETQ V -1) (MAPC L &) C)
*E ARGLIST(IGREATERP)
(U V W)

*E U
u.b.a.
U

E  ?
*F IGREATERP
*P
(IGREATERP (LENGTH &) V)
*E (SETQ V -3)
-3

*V

V  ?
*E V
-3
*E (MAXX (LIST CAND-TAIL))
((PRINT (QUOTE EXS) (QUOTE ANYB)) 0 ((No decent reason) (This gets
AM going)))

*OK
MAXX
:(DEFINEQ (CINT (LAMBDA (C) (ITIMES 100 (LENGTH (CWHY C]
(CINT redefined)
(CINT)
:
(CINT CAND-TAIL)
200
:
EDITF(INS1CAND)
loading from <LENAT>TB.;6
prop 
edit

*P
(LAMBDA (C I1 C2) (COND & & &) C)
*(-3 (SETQ I1 (ITIMES 100 (LENGTH (CWHY C]

*OK
unsaved
INS1CAND
:SET(SEENCANDS 1)
1
:
↑

←SET(X6COMS ((FNS INS1CAND CINT MAXX M2 PRUNE]
((FNS INS1CAND CINT MAXX M2 PRUNE))
←
SET(X6COMS ((FNS INS1CAND CINT MAXX M2 PRUNE) SEENCANDS))
(X6COMS reset)
((FNS INS1CAND CINT MAXX M2 PRUNE) SEENCANDS)
←
EDITF(M2)
loading from <LENAT>TB.;6
prop 
edit

*3 P
(SETQ CAND (CAR CANDS))
*R CAR MAXX
*OK
unsaved
M2
←EDITF(PRUNE)
loading from <LENAT>TB.;6
prop 
edit

*P
(LAMBDA (N)   **COMMENT**   (RPLACD &))
*(3)

*(3 (MAPC CANDS (FUNCTION (LAMBDA (C) (COND
((ILESSP (CINT C) INTHRESH) (DREMOVE C CANDS]

*PP
  [LAMBDA (N)
    (MAPC CANDS (FUNCTION (LAMBDA (C)
              (COND
                ((ILESSP (CINT C)
                         INTHRESH)
                  (DREMOVE C CANDS]
*OK
unsaved
PRUNE
←MAKEFILE(X6 C)
 Jogging at 301151  Load av. =  2.34, used 0:00:47.7 in 0:27:28

compiling <LENAT>X6.;1
listing? 
No 
redefine? No 
(INS1CAND compiling)
(INS1CAND (C I1 C2) NIL)
(CINT compiling)
(CINT (C) NIL)
(MAXX compiling)
(MAXX (L V C) NIL)
(M2 compiling)
(M2 (J C1) NIL)
(PRUNE compiling)
(PRUNE (N) NIL)
(<LENAT>X6.COM;1)
<LENAT>X6.;1
←